<%@ Page Language="VB" MasterPageFile="~/Default.master" Title="Untitled Page" %>

<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        If Request("username") Is Nothing = False Then
            Dim Mem As MembershipUser = Membership.GetUser(Request("username"))
            Mem.IsApproved = True
            ClubStarterKit.Web.UserAdministration.ApprovedEmail(Mem)
            Membership.UpdateUser(Mem)
            statusttl.Text = "User Verified"
            status.Text = "User " & Mem.UserName() & " has been verified and activated."
        Else
            statusttl.Text = "Error"
            status.Text = "The user could not be found."
        End If
    End Sub
</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<div id="body">
    <div class="fullwidth">
    <h2><asp:Label ID="statusttl" runat="server" /></h2><br />
    <asp:Label ID="status" runat="server" />
    </div>
</div>
</asp:Content>